for var Index := 0 0to